library(git2r)
#
ls <- cred_user_pass(username = '19908418422',password = 'zhongyf12qw#$ER')
repo <- repository(path = getwd())
config(repo)
add(repo = repo,path = list.files(recursive = T,include.dirs = T))
commit(repo,message = 'commit')
push(object = repo,name = 'origin',refspec = 'refs/heads/master',credentials = ls )


# 可视化

# plot(repo)
